home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / TEST / DEB.M < prev    next >
Encoding:
Text File  |  1990-05-16  |  314 b   |  24 lines
  1. MODULE Deb;
  2.  
  3. FROM SYSTEM IMPORT ASSEMBLER;
  4. IMPORT Strings,TOSDebug;
  5.  
  6. VAR a,b: Strings.String;
  7.  
  8. (*$D+*)
  9.  
  10. PROCEDURE f (a,b: ARRAY OF CHAR): BOOLEAN;
  11.   BEGIN
  12.     IF f (a,b) THEN
  13.       RETURN FALSE
  14.     END
  15.   END f;
  16.  
  17. BEGIN
  18.   a:= '12';
  19.   b:= 'asdasda';
  20.   IF f (a,b) THEN
  21.     a:= a
  22.   END;
  23. END Deb.
  24.